home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #49 (Oct 89) / Driver Code / Quickdraw.inc < prev    next >
Text File  |  1987-12-30  |  1KB  |  45 lines
  1. Point            RECORD            0;            Point = RECORD CASE INTEGER OF
  2. v                DS.W            1;                      1: (v: INTEGER;
  3. h                DS.W            1;                          h: INTEGER);
  4.                 ORG             v;                      2: (vh: ARRAY[1..2]
  5. vh                DS.W            h;                             OF INTEGER)
  6.                 ENDR            ;                    END;
  7.  
  8. Rect            RECORD            0;            Rect  = RECORD CASE INTEGER OF
  9. top             DS.W            1;                      1: (top:      INTEGER;
  10. left            DS.W            1;                          left:   INTEGER;
  11. bottom            DS.W            1;                          bottom: INTEGER;
  12. right            DS.W            1;                          right:  INTEGER);
  13.                 ORG             top;
  14. topLeft         DS.L            Point;                  2:  (topLeft:  Point;
  15. botRight        DS.L            Point;                  3:  (botRight: Point)
  16.                 ENDR            ;                    END;
  17.  
  18. BitMap            RECORD            0;            BitMap = RECORD
  19. baseAddr        DS.L            1;                      baseAddr: QDPtr;
  20. rowBytes        DS.W            1;                      rowBytes: INTEGER;
  21. bounds            DS.L            Rect;                  bounds:     Rect
  22.                 ENDR            ;                    END;
  23.  
  24. QuickDraw        RECORD            ,DECREMENT
  25. thePort         DS.L            1
  26. white            DS.B            8
  27. black            DS.B            8
  28. gray            DS.B            8
  29. ltGray            DS.B            8
  30. dkGray            DS.B            8
  31. arrow            DS.B            cursRec
  32. screenBits        DS.B            BitMap
  33. randSeed        DS.L            1
  34.                 ORG             -grafSize
  35.                 ENDR
  36.                 
  37. EventRecord     RECORD            0                ; EventRecord = RECORD
  38. what            DS.W            1                ;                          what:      INTEGER;
  39. message         DS.L            1                ;                          message:     LONGINT;
  40. when            DS.L            1                ;                          when:      LONGINT;
  41. where            DS.L            Point            ;                          where:         Point;
  42. modifiers        DS.W            1                ;                          modifiers: INTEGER
  43.                 ENDR                            ;                        END;
  44.  
  45.